Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports SoftwareLocker
Class MainLic
    Function CheckLic() As Boolean

        ''Application.SetCompatibleTextRenderingDefault(False)
        Dim t As TrialMaker = New TrialMaker("VitualDesk", Application.StartupPath + "\\RegFile.reg", _
            Environment.GetFolderPath(Environment.SpecialFolder.System) + "\\VitualDesk.dbf", _
            "Phone: (939)218-8954 \ Mobile: (939)218-8954", _
            365, 100, "745")
        Dim MyOwnKey() As Byte = {97, 250, 1, 5, 84, 21, 7, 63, 4, 54, 87, 56, 123, 10, 3, 62, 7, 9, 20, 36, 37, 21, 101, 57}

        t.TripleDESKey = MyOwnKey

        Dim RT As TrialMaker.RunTypes = t.ShowDialog()

        '' Dim is_trial As Boolean
        Select Case RT
            Case TrialMaker.RunTypes.Expired
                Return False
            Case TrialMaker.RunTypes.Trial
                Return True
            Case TrialMaker.RunTypes.UnKnown
                Return False
            Case TrialMaker.RunTypes.Full
                Return True
        End Select
        'If RT = TrialMaker.RunTypes.Expired Then
        '    Return False
        'End If

        'If RT = TrialMaker.RunTypes.Full Then
        '    If RT = TrialMaker.RunTypes.Full Then
        '        ''Application.Exit()
        '        is_trial = False
        '        Return is_trial
        '    Else
        '        is_trial = True
        '        Return is_trial
        '        Application.Run(New FrmMain)
        '        If (RT = TrialMaker.RunTypes.Full) Then
        '            ''   Application.Exit()
        '            is_trial = False
        '        Else
        '            is_trial = True
        '            '' Application.Run(New FrmMain)
        '        End If
        '    End If
        'Else

        'End If

    End Function
End Class
